**** EKSEMPEL 11-1 ****
Sub BadCode()
    Range("B2").Value = InputBox("Indtast dit navn","VBA-kursus")
    MsgBox "Hej " & Range("B2"), vbOKOnly, "VBA-kursus"
End Sub
***********************

**** EKSEMPEL 11-2 ****
Sub BetterCode()
    strName = InputBox("Indtast dit navn","VBA-kursus")
    MsgBox "Hej " & strName, vbOKOnly, "VBA-kursus"
End Sub
***********************

**** EKSEMPEL 11-3 ****
Sub BadCode()
    Navn = InputBox("Indtast dit navn","VBA-kursus")
    MsgBox "Hej " & Navnet, vbOKOnly, "VBA-kursus"
End Sub
***********************

**** EKSEMPEL 11-4 ****
Sub BadCode()
    Tal = InputBox("Skriv et tal","Lær at addere")
    MsgBox "Resultatet er " & Tal + Tal, vbOKOnly, "Resultat"
End Sub
***********************

**** EKSEMPEL 11-5 ****
Sub BetterCode()
    Dim strNavn As String
    strNavn = InputBox("Indtast dit navn","VBA-kursus")
    MsgBox "Hej " & strNavn, vbOKOnly, "VBA-kursus"
End Sub
***********************

**** EKSEMPEL 11-6 ****
Sub BadCode()
    Dim strNavn As String
    strNavn = InputBox("Indtast dit navn","VBA-kursus")
    MsgBox "Hej " & strName, vbOKOnly, "VBA-kursus"
End Sub
***********************

**** EKSEMPEL 11-7 ****
Sub BetterCode()
    Dim intNumber As Integer
    intNumber = CInt(Application.InputBox("Skriv et tal","Lær at addere", Type:=1))
    MsgBox "Resultatet er " & intNumber + intNumber, vbOKOnly, "Resultat"
End Sub
***********************

**** EKSEMPEL 11-8 ****
Option Explicit

Sub GetFirstName()
    Dim strName As String
    strName = InputBox("Indtast dit fornavn", "VBA-kursus")
End Sub

Sub GetLastName()
   Dim strName As String
   strName = InputBox("Indtast dit efternavn", "VBA-kursus")
End Sub
***********************

**** EKSEMPEL 11-9 ****
Option Explicit

Dim mstrName As String

Sub GetName()
    mstrName = InputBox("Indtast dit navn","VBA-kursus")
End Sub

Sub ShowName()
    MsgBox "Hej " & mstrName, vbOKOnly, "VBA-kursus"
End Sub
***********************

**** EKSEMPEL 11-10 ****
Option Explicit

Sub NonStaticDemo()
    Dim i As Integer
    i = i + 1
    MsgBox "i har nu værdien " & i
End Sub
************************

**** EKSEMPEL 11-11 ****
Option Explicit

Sub StaticDemo()
    Static i As Integer
    i = i + 1
    MsgBox "i har nu værdien " & i
End Sub
************************

**** EKSEMPEL 11-12 ****
Sub TestByRef(ByRef x As Integer)
    x = x + 10
End Sub

Sub Main()
    Dim a As Integer
    a = 5
    TestByRef a
    MsgBox a ' Viser 15, fordi værdien af a ændres i TestByRef-proceduren
End Sub
************************

**** EKSEMPEL 11-13 ****
Sub TestByVal(ByVal x As Integer)
    x = x + 10
End Sub

Sub Main()
    Dim a As Integer
    a = 5
    TestByVal a
    MsgBox a ' Viser 5, da værdien af a ikke ændres af TestByVal-proceduren
End Sub
************************

**** EKSEMPEL 11-14 ****
Sub ChangeTxtColor()
    Selection.Font.Color = -4165632
End Sub
************************


**** EKSEMPEL 11-15 ****
Sub ChangeTxtColor()
    Const cintTxtColor As Integer = -4165632
    Selection.Font.Color = cintTxtColor
End Sub
************************

**** EKSEMPEL 11-16 ****
Option Explicit

Dim mstrName As String
Const mcstrTitle As String = "VBA-kursus"

Sub GetName()
    mstrName = InputBox("Indtast dit navn", mcstrTitle)
End Sub

Sub ShowName()
    MsgBox mstrName, vbOKOnly, mcstrTitle
End Sub
************************

**** EKSEMPEL 11-17 ****
Option Explicit
Public gstrName As String
Public Const gcstrTitle As String = "VBA-kursus"
************************

